/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_1 / issue_08 / fitton / basicprogs / squareroot

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 64 1f f4 20 3e 20 | 26 2e 42 61 73 69 63 50 |..d.. > |&.BasicP|
|00000010| 72 6f 67 73 2e 53 71 75 | 61 72 65 52 6f 6f 74 0d |rogs.Squ|areRoot.|
|00000020| 00 6e 23 f4 20 41 75 74 | 68 6f 72 20 20 20 20 20 |.n#. Aut|hor     |
|00000030| 20 20 20 20 20 20 3a 20 | 47 20 4c 20 46 69 74 74 |      : |G L Fitt|
|00000040| 6f 6e 0d 00 78 28 f4 20 | 43 6f 70 79 72 69 67 68 |on..x(. |Copyrigh|
|00000050| 74 20 20 20 20 20 20 20 | 20 3a 20 41 42 41 43 55 |t       | : ABACU|
|00000060| 53 20 54 52 41 49 4e 49 | 4e 47 0d 00 82 28 f4 20 |S TRAINI|NG...(. |
|00000070| 56 65 72 73 69 6f 6e 20 | 31 2e 30 30 20 20 20 20 |Version |1.00    |
|00000080| 20 3a 20 32 38 74 68 20 | 4d 61 72 63 68 20 31 39 | : 28th |March 19|
|00000090| 38 38 0d 00 8c 05 3a 0d | 00 96 05 3a 0d 00 a0 3e |88....:.|...:...>|
|000000a0| f4 20 46 69 6e 64 73 20 | 74 68 65 20 73 71 75 61 |. Finds |the squa|
|000000b0| 72 65 20 72 6f 6f 74 20 | 6f 66 20 31 30 2e 30 20 |re root |of 10.0 |
|000000c0| 74 6f 20 31 38 20 73 69 | 67 6e 69 66 69 63 61 6e |to 18 si|gnifican|
|000000d0| 74 20 66 69 67 75 72 65 | 73 2e 0d 00 aa 33 f4 20 |t figure|s....3. |
|000000e0| 55 73 65 73 20 74 68 65 | 20 46 6c 6f 61 74 69 6e |Uses the| Floatin|
|000000f0| 67 20 50 6f 69 6e 74 20 | 45 6d 75 6c 61 74 6f 72 |g Point |Emulator|
|00000100| 20 56 65 72 73 69 6f 6e | 20 32 2e 34 30 0d 00 b4 | Version| 2.40...|
|00000110| 34 f4 20 77 69 74 68 20 | 64 6f 75 62 6c 65 20 65 |4. with |double e|
|00000120| 78 74 65 6e 64 65 64 20 | 70 72 65 63 69 73 69 6f |xtended |precisio|
|00000130| 6e 20 61 6e 64 20 72 65 | 74 75 72 6e 73 20 74 68 |n and re|turns th|
|00000140| 65 0d 00 be 2c f4 20 61 | 6e 73 77 65 72 20 69 6e |e...,. a|nswer in|
|00000150| 20 50 61 63 6b 65 64 20 | 42 69 6e 61 72 79 20 43 | Packed |Binary C|
|00000160| 6f 64 65 64 20 44 65 63 | 69 6d 61 6c 2e 0d 00 c8 |oded Dec|imal....|
|00000170| 05 3a 0d 00 d2 05 3a 0d | 00 dc 07 eb 20 33 0d 00 |.:....:.|.... 3..|
|00000180| e6 05 3a 0d 00 f0 0e 73 | 69 7a 65 25 3d 26 31 30 |..:....s|ize%=&10|
|00000190| 30 0d 00 fa 11 de 20 63 | 6f 64 65 25 20 73 69 7a |0..... c|ode% siz|
|000001a0| 65 25 0d 01 04 05 3a 0d | 01 0e 0b 6c 69 6e 6b 3d |e%....:.|...link=|
|000001b0| 31 34 0d 01 18 05 3a 0d | 01 22 0b 77 6f 72 64 25 |14....:.|.".word%|
|000001c0| 3d 30 0d 01 2c 0e 61 6e | 73 77 65 72 24 3d 22 22 |=0..,.an|swer$=""|
|000001d0| 0d 01 36 0e 6e 75 6d 62 | 65 72 24 3d 22 22 0d 01 |..6.numb|er$=""..|
|000001e0| 40 10 65 78 70 6f 6e 65 | 6e 74 24 3d 22 22 0d 01 |@.expone|nt$=""..|
|000001f0| 4a 0c 73 69 67 6e 24 3d | 22 22 0d 01 54 05 3a 0d |J.sign$=|""..T.:.|
|00000200| 01 5e 15 e3 20 70 61 73 | 73 25 3d 30 20 b8 20 32 |.^.. pas|s%=0 . 2|
|00000210| 20 88 20 32 0d 01 68 0c | 50 25 3d 63 6f 64 65 25 | . 2..h.|P%=code%|
|00000220| 0d 01 72 0e 5b 4f 50 54 | 20 70 61 73 73 25 0d 01 |..r.[OPT| pass%..|
|00000230| 7c 12 45 51 55 44 20 26 | 45 45 30 38 38 31 30 46 ||.EQUD &|EE08810F|
|00000240| 0d 01 86 12 45 51 55 44 | 20 26 45 45 34 38 39 31 |....EQUD| &EE4891|
|00000250| 30 30 0d 01 90 11 41 44 | 52 20 52 30 2c 61 6e 73 |00....AD|R R0,ans|
|00000260| 77 65 72 0d 01 9a 12 45 | 51 55 44 20 26 45 43 43 |wer....E|QUD &ECC|
|00000270| 30 39 31 30 30 0d 01 a4 | 0f 4d 4f 56 20 70 63 2c |09100...|.MOV pc,|
|00000280| 6c 69 6e 6b 0d 01 ae 0b | 2e 61 6e 73 77 65 72 0d |link....|.answer.|
|00000290| 01 b8 0a 45 51 55 44 20 | 30 0d 01 c2 0a 45 51 55 |...EQUD |0....EQU|
|000002a0| 44 20 30 0d 01 cc 0a 45 | 51 55 44 20 30 0d 01 d6 |D 0....E|QUD 0...|
|000002b0| 05 5d 0d 01 e0 0b ed 20 | 70 61 73 73 25 0d 01 ea |.]..... |pass%...|
|000002c0| 05 3a 0d 01 f4 0b d6 20 | 63 6f 64 65 25 0d 01 fe |.:..... |code%...|
|000002d0| 05 3a 0d 02 08 05 f1 0d | 02 12 05 3a 0d 02 1c 21 |.:......|...:...!|
|000002e0| e3 20 77 6f 72 64 25 3d | 61 6e 73 77 65 72 20 b8 |. word%=|answer .|
|000002f0| 20 61 6e 73 77 65 72 2b | 38 20 88 20 34 0d 02 26 | answer+|8 . 4..&|
|00000300| 2d 61 6e 73 77 65 72 24 | 3d 61 6e 73 77 65 72 24 |-answer$|=answer$|
|00000310| 2b c2 22 30 30 30 30 30 | 30 30 30 22 2b c3 7e 28 |+."00000|000"+.~(|
|00000320| 21 77 6f 72 64 25 29 2c | 38 29 0d 02 30 0b ed 20 |!word%),|8)..0.. |
|00000330| 77 6f 72 64 25 0d 02 3a | 05 3a 0d 02 44 18 6e 75 |word%..:|.:..D.nu|
|00000340| 6d 62 65 72 24 3d c2 61 | 6e 73 77 65 72 24 2c 31 |mber$=.a|nswer$,1|
|00000350| 39 29 0d 02 4e 28 6e 75 | 6d 62 65 72 24 3d c0 6e |9)..N(nu|mber$=.n|
|00000360| 75 6d 62 65 72 24 2c 31 | 29 2b 22 2e 22 2b c2 6e |umber$,1|)+"."+.n|
|00000370| 75 6d 62 65 72 24 2c 31 | 38 29 0d 02 58 1b 65 78 |umber$,1|8)..X.ex|
|00000380| 70 6f 6e 65 6e 74 24 3d | c1 61 6e 73 77 65 72 24 |ponent$=|.answer$|
|00000390| 2c 32 2c 34 29 0d 02 62 | 15 73 69 67 6e 24 3d c0 |,2,4)..b|.sign$=.|
|000003a0| 61 6e 73 77 65 72 24 2c | 31 29 0d 02 6c 3e e7 20 |answer$,|1)..l>. |
|000003b0| a7 22 32 33 22 2c 73 69 | 67 6e 24 29 20 8c 20 6e |."23",si|gn$) . n|
|000003c0| 75 6d 62 65 72 24 3d 22 | 2d 22 2b 6e 75 6d 62 65 |umber$="|-"+numbe|
|000003d0| 72 24 20 8b 20 6e 75 6d | 62 65 72 24 3d 22 2b 22 |r$ . num|ber$="+"|
|000003e0| 2b 6e 75 6d 62 65 72 24 | 0d 02 76 46 e7 20 a7 22 |+number$|..vF. ."|
|000003f0| 31 33 22 2c 73 69 67 6e | 24 29 20 8c 20 6e 75 6d |13",sign|$) . num|
|00000400| 62 65 72 24 2b 3d 22 2d | 45 22 2b 65 78 70 6f 6e |ber$+="-|E"+expon|
|00000410| 65 6e 74 24 20 8b 20 6e | 75 6d 62 65 72 24 2b 3d |ent$ . n|umber$+=|
|00000420| 22 2b 45 22 2b 65 78 70 | 6f 6e 65 6e 74 24 0d 02 |"+E"+exp|onent$..|
|00000430| 80 2d f1 20 27 27 22 54 | 68 65 20 73 71 75 61 72 |.-. ''"T|he squar|
|00000440| 65 20 72 6f 6f 74 20 6f | 66 20 31 30 20 69 73 20 |e root o|f 10 is |
|00000450| 22 3b 6e 75 6d 62 65 72 | 24 27 27 0d 02 8a 05 3a |";number|$''....:|
|00000460| 0d 02 94 05 e0 0d ff    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+